<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>显示访问记录信息</title>
<!--#include file="inc/conn.asp"-->
<link href="css.css" type="text/css"  rel="stylesheet" />
</head> 
<body>
  <%
  ipadd=request.QueryString("ipadd")
  dim rs
set rs=server.CreateObject("adodb.recordset")
rs.Open "select *  from  ipaccessrecord where ip_addr='"&ipadd&"'",objconn,1,3

if rs.eof and rs.bof then
response.Write("<font color='red'>暂时没有内容!<font>")
end if
%>

<table  class="tablec" width="400">
<tr>
<td>id</td><td>访问时间</td><td>地址</td>
</tr>
<%
Do While Not rs.eof

%>
<tr>
<td><%=rs("id")%></td><td><%=rs("createdate")%></td><td><%=rs("ip_addr")%></td>
</tr>
    <%
rs.MoveNext
loop

%>
</table>
</body>
</html>
